home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64 / t&t zufall (mc) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  568b  |  28 lines
  1. 9 :goto100:
  2. 10 :save"@0:t&t  zufall(mc)",8:return:
  3. 11 :
  4. 12 :
  5. 20 :rem---zufallszahlen(139-143)
  6. 21 :sys57534:return:---bilden
  7. 22 :sys57502:return:---init
  8. 23 :a=peek(53266):return:--rasterstrahl
  9. 24 :a=peek(56324):return:---timer
  10. 25 :
  11. 26 :
  12. 30 :rem---taste
  13. 31 :wait198,1:geta$:on-(a$="")goto31:return:
  14. 34 :
  15. 35 :
  16. 100 :rem---aufruf
  17. 101 :print"[147]zufall:[146] peek(139-143)"::gosub22:
  18. 102 :gosub20:fori=.to4:printtab(i*5)peek(139+i);:next:print:
  19. 103 :gosub30:ifa$<>" "goto102
  20. 104 :
  21. 110 :print"rasterstrahl:  peek(53266)"
  22. 111 :gosub23:printtab(pos(.)and3)a;:gosub30:on-(a$<>" ")goto111:print
  23. 112 :
  24. 120 :print"timer:  peek(56324)"
  25. 121 :gosub24:printtab(pos(.)and3)a;:gosub30:on-(a$<>" ")goto121:print
  26. 122 :
  27. 130 :list20-24:
  28.